home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / RECURSON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  341 b   |  17 lines
  1. PROGRAM try_recursion;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. PROCEDURE print_and_decrement(index : INTEGER);
  6. BEGIN
  7.   WRITELN('The value of the index is ',index:3);
  8.   index := index - 1;
  9.   IF index > 0 THEN
  10.     print_and_decrement(index);
  11. END;
  12.  
  13. BEGIN  (* main program *)
  14.   count := 7;
  15.   print_and_decrement(count);
  16. END.  (* main program *)
  17.